<!--#include file="inc/const.asp"-->
<%
dim id: id = request("id")
dim page: page = request("page")
if Len(id) = 0 or not isnumeric(id) or instr(id,",") > 0 then response.write "<h1>id error!</h1>" :response.end
if Len(page) = 0 or not isnumeric(page) or instr(page,",") > 0 then page = 1 else page = Int(page)
if page < 1 then page = 1
dim html
html = CreateContent(id, page)
html = rewriterule(html)
if qsscharset = 1 then
	response.Charset="utf-8"
	session.codepage = 65001
end if
response.write html
if isobject(conn) then conn.close: set conn = nothing
%>
